home *** CD-ROM | disk | FTP | other *** search
/ Wildcat Files 2 / The Wildcat Files 2 (Arsenal Computer).ISO / wccode / whoson.wcx (.txt) < prev    next >
Wildcat! WCX  |  1995-03-03  |  1KB  |  86 lines
  1. '! Decompiled with wccNosy version 4.20f (freeware)
  2. '! Input File: in.wcx  1218 bytes  01/31/123  10:08:50pm
  3. '! Code Segment Size  :944 bytes
  4. '! Data Segment Size  :5337 bytes
  5. '! String Segment Size:274 bytes
  6. '! Compiled with WCC version 4.10
  7.  
  8.       Dim i4463 As Integer
  9.       Dim s4465 As String
  10.       Dim i4469 As Integer
  11.       Dim nir4471 As NodeInfoRecord
  12.       Dim ur4657 As UserRecord
  13.       Dim s5307 As String
  14.       Dim l5311 As Long
  15.       Dim l5315 As Long
  16.       Dim l5319 As Long
  17.       Dim d5323 As Date
  18.       Dim l5325 As Long
  19.       Dim l5329 As Long
  20.       Dim l5333 As Long
  21.  
  22.       Dim l65530_ As Long
  23.       Dim i65534_ As Integer
  24.  
  25.       Print "@0F@ #    Baud    Alias                      Access      Sex            Age"
  26.       Print "@0E@---  ------  --------------------------- ---------    ---            ---"
  27.    79 For i4469 = 0 To MaxNode Step 1
  28.         If MasterInfo.ActiveNode(i4469) Then
  29.           GetNodeInfo nir4471, i4469
  30.           If nir4471.NodeStatus >= 1 And nir4471.NodeStatus <= 3 Then
  31.             Print "@0B@"; LeftPad(Str(i4469), 3); " @0E@";
  32.             If nir4471.NodeStatus = 1 Then
  33.               Print "  OPEN   @0F@Line Clear"
  34.             Else
  35.   256         If nir4471.BaudRate > 0 Then
  36.                 Print LeftPad(Str(nir4471.BaudRate), 6); "   @0F@";
  37.               Else
  38.   308           Print " LOCAL   @0F@";
  39.               End If
  40.   317         If nir4471.NodeStatus = 2 Then
  41.                 Print "Caller is logging in"
  42.               Else
  43.   351           If nir4471.NodeStatus = 3 Then
  44.                   GetUser(ur4657, nir4471.CallersName)
  45.                   s5307 = FormatDate(ur4657.BirthDate, "YY")
  46.                   l5311 = Val(s5307)
  47.                   s5307 = FormatDate(ur4657.BirthDate, "MM")
  48.                   l5315 = Val(s5307)
  49.                   s5307 = FormatDate(ur4657.BirthDate, "DD")
  50.                   l5319 = Val(s5307)
  51.                   CurrentDate d5323
  52.                   s5307 = FormatDate(d5323, "YY")
  53.                   l5325 = Val(s5307)
  54.                   s5307 = FormatDate(d5323, "MM")
  55.                   l5329 = Val(s5307)
  56.                   s5307 = FormatDate(d5323, "DD")
  57.                   l5333 = Val(s5307)
  58.                   i4463 = l5325 - l5311
  59.                   If l5329 = l5315 And l5319 < l5333 Then
  60.                     i4463 = i4463 - 1
  61.                   End If
  62.   633             If l5329 < l5315 Then
  63.                     i4463 = i4463 - 1
  64.                   End If
  65.   665             If ur4657.Sex = 0 Then
  66.                     s4465 = "?"
  67.                   End If
  68.   693             If ur4657.Sex = 1 Then
  69.                     s4465 = "M"
  70.                   End If
  71.   722             If ur4657.Sex = 2 Then
  72.                     s4465 = "F"
  73.                   End If
  74.   751             If ur4657.Alias <> "" Then
  75.                     Print Pad(Left(ur4657.Alias, 20), 20); , ; ur4657.SecLevel; , ; s4465; , ; i4463
  76.                   Else
  77.   849               Print ur4657.Name; , ; ur4657.SecLevel; , ; s4465; , ; i4463
  78.                   End If
  79.                 End If
  80.               End If
  81.             End If
  82.           End If
  83.         End If
  84.   906 Next
  85.   929 WaitEnter 
  86.